﻿Imports VN.INS.DL.DH
Imports VN.INS.BL.BE
Public Class ProgFinanDA

    Public Function ListaProgramacion(ByVal strPOA As String) As DataTable
        Dim objData As AdministradorOracle = New AdministradorOracle
        Dim objDt As DataTable
        Dim lxc_SQL As String

        Try

            lxc_SQL = "SELECT PAF.META_01, PAF.META_02 , PAF.META_03 , PAF.META_04 ,PAF.META_05, PAF.META_06, PAF.META_07, PAF.META_08, PAF.META_09, PAF.META_10, PAF.META_11 , PAF.META_12, " & _
                            "NVL(PAF.META_01,0) + NVL(PAF.META_02,0) + NVL(PAF.META_03,0) + NVL(PAF.META_04,0) + NVL(PAF.META_05,0) + NVL(PAF.META_06,0) +  " & _
                            "NVL(PAF.META_07,0) + NVL(PAF.META_08,0) + NVL(PAF.META_09,0) + NVL(PAF.META_10,0) + NVL(PAF.META_11,0) + NVL(PAF.META_12,0)  AS META_ANUAL, " & _
                            "PAF.GENERICA_GASTO, PAF.ESPECIFICA_GASTO, EG.DESCRIPCION " & _
                        "FROM POA_ACTIVIDAD_FINANCIERA PAF, ESPECIFICA_GASTO EG " & _
                        "WHERE  " & _
                                "PAF.ESPECIFICA_GASTO = EG.ESPECIFICA_GASTO AND " & _
                                "PAF.POA = '" & strPOA & "' " & _
                        "ORDER BY  EG.ESPECIFICA_GASTO "
            objDt = objData.ExecuteSQL(lxc_SQL, "Conexion.Oracle")
            Return objDt

        Catch ex As Exception
            Throw ex
        End Try
    End Function

End Class
